home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / Ansel.cpt / ansel / card_4165.txt < prev    next >
Text File  |  1988-01-08  |  5KB  |  234 lines
  1. -- card: 4165 from stack: in
  2. -- bmap block id: 9416
  3. -- flags: 4000
  4. -- background id: 2803
  5. -- name: TheIndex
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set lockText of card field "finder" to true
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 01
  16. -- high flags: 2007
  17. -- rect: left=269 top=97 right=326 bottom=457
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 2
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: finder
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   if the selection is empty then
  29.     set lockText of the target to false
  30.     repeat two times
  31.       click at the clickLoc
  32.     end repeat
  33.     put the selection into holder
  34.     push card
  35.     visual effect wipe right to black
  36.     visual effect wipe left
  37.     find holder in field keywords -- This line is the link
  38.     if the result is not empty then
  39.       answer "No match for keyword " "e& holder"e
  40.       pop card
  41.     end if
  42.     click at 0,0 --disable selection
  43.     set lockText of the target to true
  44.   end if
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 5 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=396 top=54 right=75 bottom=457
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Re-Index
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   set cursor to 4
  64.   set loc of message to 10,170
  65.   play harpsichord c
  66.   put "Sorting Reference Cards . . . Please Wait" into message
  67.   put empty into card field finder
  68.   set the cursor to 4
  69.   sort by field keywords
  70.   get the number of cards
  71.   put it into x
  72.   put 0 into y
  73.   subtract 1 from x
  74.   play harpsichord e
  75.   flash 1
  76.   put "Getting Keywords . . . Please Wait" into message
  77.   set lockscreen to true
  78.   repeat x
  79.     add 1 to y
  80.     go next
  81.     get field keywords
  82.     put it into line y of card field finder of card 1
  83.   end repeat
  84.   go card 1
  85.   set lockscreen to false
  86.   play harpsichord g
  87.   flash 1
  88.   put "Compacting Stack . . . Please Wait" into message
  89.   doMenu "Compact Stack"
  90.   play harpsichord c5 g4 e c
  91.   flash 1
  92.   put "Done" into message
  93.   wait 2 seconds
  94.   hide message
  95.   set the loc of msg to 10,-100
  96. end mouseUp
  97.  
  98.  
  99.  
  100.  
  101. -- part 18 (button)
  102. -- low flags: 80
  103. -- high flags: A000
  104. -- rect: left=172 top=92 right=140 bottom=266
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 24209 / 24209
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: XTButton
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   get the short name of target
  116.   visual effect iris close to black
  117.   visual effect iris open to white
  118.   visual effect dissolve
  119.   go to stack it
  120. end mouseUp
  121.  
  122.  
  123.  
  124.  
  125. -- part 27 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=313 top=54 right=76 bottom=379
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: New Key
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   ask "Enter New Keyword:"
  140.   if it is not empty then
  141.     put it into keyname
  142.     doMenu New Card
  143.     set the name of this card to keyname
  144.     put keyname into field keywords
  145.     get the number of lines in card field finder of card theIndex
  146.     put keyname into line it+1 of card field finder of card theIndex
  147.   end if
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 28 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=9 top=315 right=342 bottom=30
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Xref on Home
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   play harpsichord c6
  167.   set the cursor to 4
  168.   put "Putting button into home stack...Please wait" into message
  169.   get the short name of this stack
  170.   put it into nameholder
  171.   show card button "XTButton"
  172.   choose button tool
  173.   click at the loc of button "XTButton"
  174.   doMenu "Copy Button"
  175.   go home
  176.   doMenu "Paste Button"
  177.   set the name of button "XTButton" to nameholder
  178.   go back
  179.   hide button XTButton
  180.   play harpsichord c5
  181.   put "Done." into message
  182.   wait 30 ticks
  183.   hide message
  184.   choose browse tool
  185. end mouseUp
  186.  
  187.  
  188.  
  189.  
  190. -- part contents for background part 1
  191. ----- text -----
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207. -- part contents for background part 41
  208. ----- text -----
  209. What links to Patrick?
  210.  
  211. -- part contents for card part 1
  212. ----- text -----
  213.  
  214. ‚Ä¢ Ansel Adams
  215. Adler
  216. Artist
  217. Bibliography
  218. Compensation
  219. Earthquake
  220. Family
  221. Father
  222. Forum
  223. Love/Marriage
  224. Mother
  225. Notes
  226. Occupational/Work
  227. Photography
  228. Societal/Environment
  229. Teacher
  230. Technology
  231. Visualization
  232. Yosemite
  233. Youth
  234. Zone